home *** CD-ROM | disk | FTP | other *** search
- #include <intuition/intuition.h>
- #include <exec/types.h>
- #include <clib/intuition_protos.h>
- #include <libraries/arq.h>
- #include <string.h>
-
-
- extern struct Window *win_p;
- extern void msg(char *text);
-
- extern int language;
-
- #define ENGLISH 1
- #define FRENCH 2
- #define SPANISH 3
-
-
- BOOL about(void) {
- /* New about routine, this one uses a requester! */
- /* Updated again to have more than one line! */
-
- /* Further updated to allow big fonts */
-
- /* Other */
- char text[1000];
- struct ExtEasyStruct easypeasy;
-
- /* First set up text lines */
-
- switch(language) {
- case ENGLISH:
- case FRENCH:
- strcpy(text,"English Clock v7.0 © 1996 by Ben Matthew\n\n");
- strcat(text,"This program is FREEWARE - this means that it is freely\n");
- strcat(text,"distributable!. No money should have been paid for this\n");
- strcat(text,"program, only enough to cover copying costs.\n\n");
- strcat(text,"To send any comments, bug reports or donations contact me at:\n");
- strcat(text," Ben Matthew\n");
- strcat(text," 16 Blackthorn Close,\n");
- strcat(text," West Kingsdown,\n");
- strcat(text," Kent. TN15 6UF\n");
- strcat(text,"EMail: ben@bmatthew.demon.co.uk\n\n");
- strcat(text,"Spanish text by Dámaso Domínguez Estévez - Many thanks!\n\n");
- strcat(text,"Long live the Amiga!");
- break;
- case SPANISH:
- strcpy(text,"English Clock v7.0 © 1996 por Ben Matthew\n\n");
- strcat(text,"Este programa es FREEWARE: ¡gratuíto y de libre distribución!\n");
- strcat(text,"No debe pagar nada por este programa, sólo lo sufficiente\n");
- strcat(text,"para cubrir los costes de copiado\n\n");
- strcat(text,"Envie sus comentarios, informe sobre errores, donaciones a:\n");
- strcat(text," Ben Matthew,\n");
- strcat(text," 16 Blackthorn Close,\n");
- strcat(text," West Kingsdown,\n");
- strcat(text," Kent. TN15 6UF. (England)\n");
- strcat(text,"EMail: ben@bmatthew.demon.co.uk\n\n");
- strcat(text,"Traducción al español por Dámaso Domínguez Estévez\n\n");
- strcat(text,"¡Larga vida al Amiga!");
- break;
- default:
- msg("Internal error! (Language !=0,1,2)");
- return(0);
- break;
- }
-
- easypeasy.Magic=ARQ_MAGIC;
- easypeasy.AnimID=ARQ_ID_INFO;
- easypeasy.Easy.es_Title=" ";
- easypeasy.Easy.es_TextFormat=text;
-
- switch(language) {
- // For future expansion
- case FRENCH:
- case ENGLISH:
- case SPANISH:
- default:
- easypeasy.Easy.es_GadgetFormat="Continue";
- break;
- }
-
- EasyRequest(win_p,&easypeasy.Easy,NULL,NULL);
- }
-